Option Explicit
Sub Q_Sample026()
    ']wޥζMicrosoft Internet Controls
    Dim myIE      As InternetExplorer
    Dim mySiteUrl As String
    Dim a As Variant
    
    'w½ĶURL
    Const myUrl As String = "http://www.excite.co.jp/world/english/web/"
    'w^URL
    mySiteUrl = "http://j-walk.com/ss/excel/index.htm"
    Set myIE = New InternetExplorer
    With myIE
        .Visible = False
        .Navigate myUrl
        Do While .Busy
        Loop
        Do Until .ReadyState = READYSTATE_COMPLETE
        Loop
        Set a = .Document.all("wb_url")
        .Document.all("wb_url").Value = mySiteUrl
        .Document.all("wb_submit").Click
        .Quit
    End With
    Set myIE = Nothing                                          '
End Sub